
{***********************************************************}
{                                                           }
{      Informix esql "int8.h"                               }
{                                                           }
{      Translated to Object Pascal by                       }
{      Copyright (c) 2001-2008 Luxena Software Company      }
{      http://www.luxena.com                                }
{      e-mail: support@luxena.com                           }
{                                                           }
{***********************************************************}

unit IfxInt8;

{$I lx.inc}

{$IFDEF VER140_OR_ABOVE}
  {$ALIGN 8}
{$ENDIF}

interface

uses
  IfxTypes;

const
  INT8SIZE = 2; // number of unsigned int4's in struct ifx_int8
  INT8UNKNOWN = -2; // Value returned by int8 comparison function if one of the operands is NULL.

  INT8NULL = 0; // A int8 null will be represented internally by setting sign equal to INT8NULL


type

  ifx_int8 = record
    data: array[0..INT8SIZE - 1] of uint4;
    sign: int2;		// 0 = NULL, 1 = positive, -1 = negative
  end;
  PIfx_int8 = ^Tifx_int8;
  TIfx_int8 = ifx_int8;

implementation

end.